home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAM_RAD / LOGGING / 3090.ZIP / ADQSLMAN.PRG < prev    next >
Text File  |  1987-03-10  |  1KB  |  38 lines
  1. SET HEADING OFF
  2. SET SAFETY OFF
  3. * ADQSLMAN.PRG
  4. * CALLED BY HAM.PRG
  5. * REV 07/02/83
  6. * REV 03/08/87 FOR USE ON PC
  7. CLEAR
  8. DO WHILE .T.
  9. USE USQSLMAN INDEX USQSLMAN
  10. SET INDEX TO USQSLMAN
  11. @ 0,0 SAY 'ENTER [END] TO EXIT'
  12. @ 0,30 SAY '***** US QSL MANAGERS EDIT *****'
  13. ACCEPT 'CALL: ' TO MCALL
  14. STORE UPPER(MCALL) TO MCALL
  15.    IF MCALL = 'END'
  16.       RETURN
  17.    ENDIF
  18. FIND &MCALL
  19.    DO WHILE CALL = MCALL .AND. CALL <> "ZZZ"
  20.       @ 5,7 SAY 'CALL'
  21.       @ 5,21 SAY 'MANAGER'
  22.       DISPLAY
  23.       SKIP
  24.    ENDDO
  25. ACCEPT 'AMMEND: ' TO MAMMEND
  26. STORE UPPER(MAMMEND) TO MAMMEND
  27.    IF MAMMEND = 'Y'
  28.       EDIT
  29.    ENDIF
  30. ACCEPT 'ADD: ' TO MADD
  31. STORE UPPER(MADD) TO MADD
  32.    IF MADD= 'Y'
  33.       APPEND
  34.    ENDIF
  35. RELEASE ALL
  36. CLEAR
  37. ENDDO
  38.